home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / listdr.zip / LISTDRAG.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-07-17  |  4KB  |  104 lines
  1. Form1
  2. ListDrag Demo
  3. Form1-
  4. Label1
  5. List1
  6. Courier
  7. Label2
  8. Hold down Ctrl key and use Up and Down arrow keys to move a line in the listbox.  Or press Ctrl and drag a line with the mouse.
  9. StartY
  10. MoveLine_
  11. Item1
  12. TRUEy
  13. FALSE
  14.     Form_Load
  15. List1
  16.     ListIndex
  17. ListSwap
  18. Line1
  19. Line2I
  20. ListBox
  21. Tempx
  22. List1_MouseDown&
  23. Button
  24. Shift7
  25. CtrlDown
  26. RowSize
  27. List1_MouseMovep
  28. Label1B
  29. Caption
  30. ButtonDown
  31.     ListCount
  32. List1_MouseUp.
  33. List1_KeyUp
  34. KeyCode
  35. List1_KeyDown
  36.     UpPressed
  37. KEY_UP
  38. DownPressed
  39. KEY_DOWN\
  40. Height
  41. Item2
  42. List1_Click
  43. List1_DblClick
  44. MoveNow
  45. Label1_Click
  46. Label1_DragDrop
  47. Source8
  48. Label1_DragOver
  49. State
  50. Label1_MouseDown~
  51. Label1_MouseMove
  52. Label1_Top
  53. Label1_Left
  54. Label1_Width`
  55. Label1_HeightV
  56. Width
  57. List1_DragDrop
  58. Label
  59. List1_DragOver
  60. Enabled
  61. Label2
  62. FontSize
  63. Offset
  64. Form_MouseUp
  65. WriteArray
  66.     TempArray
  67. First
  68. IntSwap
  69. Array
  70. SwapInt
  71. TempInt
  72. MoveRow
  73. Thenase
  74. StaCase
  75. screen
  76. activecontrol
  77.  LISTSWAP.MAK a demonstration Visual Basic program to show
  78.  how single items in a list box can be reordered using
  79.  Ctrl-UpArrow/DownArrow or by pressing Ctrl and dragging
  80.  a list item with the mouse.
  81.  Sue Mosher, 202-736-1136, CIS 75140,543 r
  82.  Public domain
  83.  values: -1 for UP move,
  84.  1 for DOWN, 0 for none 
  85.  line to be moved
  86. Form_Load
  87. Item "
  88. ListSwap
  89. List1_MouseDown
  90.  get item to be moved 
  91.  move label control to mouse position and starts
  92.  dragging it
  93. List1_KeyUp
  94. List1_KeyDown
  95.  set item to be moved 
  96. List1_DragDrop
  97. List1_DragOver
  98.  if leaving list, turn off
  99.  drag & force drop
  100.  if within move range)
  101. SwapInt
  102. MoveRow
  103.  if within 1 row
  104.